home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / A+(PART1).ARC / MB C5.0.5 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  53 lines
  1. 1 REM MB C5.0.5     3/5/87
  2. 2 POKE781,VT:POKE782,HT:POKE783,PEEK(783)AND254:SYS65520:VT=0:HT=0:IFQTHENRETURN
  3. 3 :Q=1:SYS58692:POKE53280,0:POKE53281,0:POKE646,15:OPEN15,8,15:GOSUB23:GOSUB20:GOTO7:
  4. 4 TX=TI
  5. 5 IFTI<TX+180THEN5
  6. 6 RETURN
  7. 7 GOSUB30:PRINTCHR$(14);:K=1:N=8:VT=3:HT=10:GOSUB2:PRINT"[158][193]-[208][204][213][211] [205][193][211][212][197][210] [205][197][206][213]":VT=4:HT=9:GOSUB2:PRINT"[164][164][164]":VT=5:HT=9:GOSUB2:PRINT" 1 [146][159] [197]NTER/[197]DIT TESTS":VT=6:HT=9:GOSUB2:PRINT"[164][164][164]":VT=7:HT=9:GOSUB2:PRINT" 2 [146][159] [193]-[208]LUS ON SCREEN":VT=8:HT=9:GOSUB2:PRINT"[164][164][164]":VT=9:HT=9:GOSUB2:PRINT" 3 [146][159] [210]EAD TEST RECORDS
  8. 8 VT[178]10:HT[178]9:[141]2:[153]"TOTOTO":VT[178]11:HT[178]9:[141]2:[153]" 4 WAITOPEN (null)OCK/DELETE FILES":VT[178]12:HT[178]9:[141]2:[153]"TOTOTO":VT[178]13:HT[178]9:[141]2:[153]" 5 WAITOPEN (null)ET DEFAULT CODES":VT[178]14:HT[178]9:[141]2:[153]"TOTOTO":VT[178]15:HT[178]9:[141]2:[153]" 6 WAITOPEN RIGHT$NSTRUCTIONS":VT[178]16:HT[178]9:[141]2:[153]"TOTOTO
  9. 9 VT=17:HT=9:GOSUB2:PRINT" 7 [146][159] [208]RINT [193]-[208]LUS TEST":VT=18:HT=9:GOSUB2:PRINT"[164][164][164]":VT=19:HT=9:GOSUB2:PRINT" 8 [146][129] [197]ND THIS SESSION":VT=21:HT=12:GOSUB2:PRINT"[156][197][206][212][197][210] [211][197][204][197][195][212][201][207][206]
  10. 10 [161]Z$:[139]Z$[178]""[167]10
  11. 11 LM[178][197](Z$):[139]LM[179]1[176]LM[177]8[167]10
  12. 12 [153][199](147):[145]LM[137]18,13,14,15,16,31,17,19
  13. 13 FI$[178]"A+ OBJ.P*":[137]22
  14. 14 FI$[178]"READ P*":[137]22
  15. 15 FI$[178]"DEL P*":[137]22
  16. 16 FI$[178]"DEFAULT*":[137]22
  17. 17 FI$[178]"PRINT P*":[137]22
  18. 18 FI$[178]"GEN P*":[137]22
  19. 19 [151]53280,14:[151]53281,6:[153][199](142)"LOADCONTPROGRAM TERMINATED":[128]:
  20. 20 [132]15,DE,DE$,JU,JU:[139]DE[179]2[167][142]
  21. 21 [153]"LIST ";DE$:[152]15,"I0":[141]4:[160]15:[153]"LOADPROGRAM TERMINATED":[151]2,0:[151]787,0:[128]:
  22. 22 [153]"LOAD"[163]11)"LIST(null)(null)ATNSTR$RIGHT$(null)CHR$ (null)(null)(null)CHR$(null)ATN(null)...":[153]"STOPLOAD";[199](34);FI$;[199](34);",8ONONON":[160]15:[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
  23. 23 [151]53280,0:[151]53281,0:[153]"LOADRETURN";:[153]"LISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^(null)"[166]38)"(null)";:[153]"(null)"[166]38)"(null)";:[153]"(null)"[166]38)"(null)";:[153]"(null)"[166]38)"(null)";:[153]"(null)"[166]38)"(null)(null)"[166]3)"TOTO";:[153]"TOTOTOTOTOTOTOTOTO}}nnmnnmnnFNnnFNnnFNnnm";
  24. 24 [153]"}}STEP  WAITLISTnFNTOTOTO   WAITLISTnFN WAITLISTFN WAITLISTFN WAITLISTFNSTEP   WAITLISTn}} WAIT";:[153]"LISTnTAB( WAITLISTFNnnFN WAITLISTn WAITLISTn WAITLISTFN WAITLISTFN WAITLISTFN WAITLISTnTAB(TAB(nm}}  ";:[153]"  WAITLISTFN   WAITLIST(null)   WAITSTEP WAITLIST(null)ANDAND WAITLIST(null) WAITLISTSGN(null)   (null)WAITLIST(null)FN(null)(null) WAITLISTFN ";
  25. 25 [153]"WAITLISTFN WAITLISTFN WAITLISTnnFN WAITLISTn WAITLISTnn WAITLISTn}} WAITLISTn WAITLISTn";:[153]" WAITLIST(null)    WAITLIST(null)(null)  WAITSTEP(null)   WAITSTEPLIST(null)(null)"[166]25);:[153][166]13)"(null)(null)"[166]38)"(null)(null)"[166]17);:[153][166]21)"(null)(null)"[166]23)"CONTBY"[166]13)"LIST(null)(null)";:[153][166]31)"(null)(null)"[166]38)"(null)";
  26. 26 [153]"(null)"[166]15)"CONTROBERTH.CROSWELLLIST(null)(null)"[166]38)"(null)(null)"[166]38)"(null)";:[153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[141]4:[141]30:[153][199](14)"SYS                                       ";:[153][166]17)"(null)ATN(null)(null)RIGHT$(null)CHR$ !":[153]"LIST(null)HIS SOFTWARE IS PROTECTED BY (null). (null).";
  27. 27 [153]"COPYRIGHT LAW   ((null)RIGHT$(null)(null)VAL 17 (null)(null)RIGHT$(null)VALSTR$";:[153]"(null)(null)ATN(null)VAL(null) LEN(null)STR$VAL). (null)E RESERVE ALL COM-";:[153]"MERCIAL  RIGHTS TO THIS PROGRAM.";:[153]"(null)ERMISSION IS GRANTED FOR NON-";:[153]"NON-COMMERCIAL  DISTRIBUTION ONLY.";
  28. 28 [153]"THERE ARE NO WARRANTIES EXPRESSED ";:[153]"OR IMPLIED AS TO THE FITNESS OF";:[153]"THIS  SOFTWARE FOR ANY PARTICULAR";:[153]"PURPOSE.";:[153]" CONT(null)5.0.5       (null)OBERT LEFT$. LENROSWELL";
  29. 29 [153]"                (null)T. 2 PEEKOX 20";:[153]"  (C) 1987      (null)RAPPE, (null)D.":[141]4:[142]:
  30. 30 [153]"LISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";:[129]I[178]1[164]21:[153]"(null)                                      (null)";:[130]:[153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[142]:
  31. 31 [153]"LOAD"[163]10)"LISTATN-(null)(null)(null)(null) RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)":[153]""[163]8)"TOTOTO":[153][163]8)" (null) WAITOPEN (null)UTPUT TO PRINTER":[153][163]8)"SYSTOTOTO":[153][163]8)" (null) WAITOPEN (null)UTPUT TO SCREEN":[153][163]8)"TOTOTO":[153][163]8)" (null) WAITOPEN (null)UIT - RETURN TO MENU":[153][163]12)"LIST< VALNTER LENHOICE >
  32. 32 GETO$:IFO$=""THEN32
  33. 33 IFO$<>"S"ANDO$<>"P"THEN7
  34. 34 IFO$="P"THEN47
  35. 35 PRINTCHR$(14):PRINT"[147][158]    [208]RESS SPACE BAR TO PAUSE/RESUME":PRINTTAB(8)"[208]RESS [209] TO ABORT LISTING[155]":OPEN6,8,6,"0:A+ 40,S,R":INPUT#15,E,E$,JU,JU:IFE>1THENCLOSE6:PRINT"[147]"E$:GOSUB4:GOTO7
  36. 36 GET#6,A$:GETQ$:IFQ$="Q"ORQ$="[209]"THENA$="[
  37. 37 [139]A$[178]"["[167][160]6:[137]43
  38. 38 [153]A$;:[161]Z$:[139]Z$[178]" "[167]40
  39. 39 [137]36
  40. 40 [161]Z$:[139]Z$[179][177]""[167]40
  41. 41 [161]Z$:[139]Z$[179][177]" "[167]41
  42. 42 [137]36
  43. 43 [153]:[153][163]5)"CLR VALND OF LISTING: PRESS SPACE LIST
  44. 44 GETA$:IFA$<>""THEN44
  45. 45 GETA$:IFA$<>" "THEN45
  46. 46 GOTO7
  47. 47 PRINTTAB(8)"[145][145][145][159]PRINTER DEVICE NUMBER[155]  4[157][157][157]";:INPUTD$:D=VAL(D$):IFD<4ORD>7THENPRINT"[147] INVALID NUMBER":GOTO47
  48. 48 OPEN6,8,6,"0:A+ 80,S,R":INPUT#15,E,E$,JU,JU:IFE>1THENCLOSE6:PRINT"[147]"E$:GOSUB4:GOTO7
  49. 49 OPEN4,D,7
  50. 50 GET#6,A$:GETQ$:IFQ$="Q"ORQ$="[209]"THENA$="[
  51. 51 [139]A$[178]"["[167][160]6:[152]4:[160]4:[137]7
  52. 52 [152]4,A$;:[137]50
  53.